home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / avegrade.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-09-15  |  1.0 KB  |  41 lines
  1. 1  'AVErage Growth RATE
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "AVERAGE GROWTH RATE, FUTURE PROJECTIONS"
  4. 20   PRINT 
  5. 30   DIM S(20)
  6. 40   PRINT "NUMBER OF YEARS FIGURES ESTABLISHED";
  7. 50   INPUT N:IF N=0 THEN 320
  8. 52   IF N<2 THEN 50
  9. 60   FOR I = 1 TO N
  10. 70   IF I > 1 THEN 100
  11. 80   PRINT "FIGURE: YEAR"I;
  12. 90   GOTO 110
  13. 100   PRINT "        YEAR";I;
  14. 110   INPUT S(I)
  15. 120   NEXT I
  16. 130  T =  LOG (S(1))
  17. 140  V = 0
  18. 150   FOR I = 2 TO N
  19. 160  L =  LOG (S(I))
  20. 170  T = T + L
  21. 180  V = V + (I - 1) * L
  22. 190   NEXT I
  23. 200  A = 6 * (2 * V / (N - 1) - T) / (N) / (N + 1)
  24. 210  G =  EXP (A) - 1
  25. 220   PRINT "AVERAGE GROWTH RATE: " INT (G * 10000 + 0.5) / 100;"%"
  26. 230   PRINT 
  27. 240  S =  EXP (T / N - A * (N - 1) / 2)
  28. 250   PRINT "(ENTER 0 TO END PROGRAM)"
  29. 260   PRINT "PROJECTED SALES FOR YEAR ";
  30. 270   INPUT Y1
  31. 280   IF Y1 = 0 THEN 320
  32. 290  S1 = S * (1 + G) ^ (Y1 - 1)
  33. 300   PRINT "                         ="; INT (S1 * 100 + 0.5) / 100
  34. 310   GOTO 260
  35. 320  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO CONTINUE";
  36. 330  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  37. 340  K$=INKEY$:IF K$="" THEN 340
  38. 350  IF K$=" " THEN RUN
  39. 360  IF K$<>CHR$(27) THEN 340
  40. 10000  RUN"MENU
  41.